home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / geos-archive / GEOS-D64 / GeoThek Programme (19xx)(-)(de)[gt105a].d64 / btx cONVERTER (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  4KB  |  179 lines
  1. 0 REM GEOWRITE TEXTKONVERTER
  2. 10 DIM Z$(255),K(23)
  3. 15 GOSUB655
  4. 20 GOSUB610
  5. 25 PRINT" 1 = GEOS-TEXT ERZEUGEN":PRINT
  6. 30 PRINT" 2 = TABELLE AENDERN":PRINT
  7. 35 PRINT" 3 = TABELLE LADEN":PRINT
  8. 40 PRINT" 4 = TABELLE SPEICHERN":PRINT
  9. 41 PRINT" 5 = GEOS 64 AUFRUFEN":PRINT
  10. 42 PRINT" 6 = GEOS 128 AUFRUFEN":PRINT
  11. 43 PRINT" AUF DER DISK MUSS SICH EIN LEERES FILE  MIT DEM NAMEN DUMMY BEFINDEN !":PRINT
  12. 45 PRINT:PRINT"BITTE WAEHLEN !"
  13. 50 GETW$:W=VAL(W$):IFW<1ORW>6THEN50
  14. 55 GOSUB610
  15. 60 OPEN1,8,15,"I:0":GOSUB635
  16. 65 ON W GOSUB85,465,520,565,1000,1100
  17. 70 CLOSE1
  18. 75 GOTO20
  19. 80 :
  20. 85 PRINT" BITTE GEBEN SIE DEN NAMEN DES ZU "
  21. 90 PRINT" KONVERTIERENDEN TEXTES EIN!"
  22. 95 PRINT:INPUTAT$
  23. 100 GOSUB610
  24. 105 PRINT" WIEVIELE ZEICHEN PRO SEITE (1-4580) ":PRINT
  25. 110 INPUTAZ
  26. 115 IFAZ<1ORAZ>4580THEN100
  27. 120 :
  28. 125 REM
  29. 130 OPEN2,8,2,AT$+",R":GOSUB635
  30. 135 M$="TEXT-DUMMY"
  31. 140 PRINT#1,"S:";M$+"*"
  32. 145 OPEN3,8,3,M$+STR$(SZ+1)+",S,W":GOSUB635
  33. 150 :
  34. 155 REM
  35. 160 FORI=0TO23
  36. 165 PRINT#3,CHR$(K(I));
  37. 170 NEXTI
  38. 175 :
  39. 180 REM
  40. 185 P=0
  41. 190 GET#2,T$:IFT$=""THENT$=CHR$(0)
  42. 195 S=ST AND 64:T=ASC(T$)
  43. 200 IFT<161ORT>170THEN255
  44. 205 T1=T:T=69
  45. 210 IFT1=161THENT1=79:GOTO250
  46. 215 IFT1=165THENT1=65:GOTO250
  47. 220 IFT1=166THENT1=85:GOTO250
  48. 230 IFT1=168THENT1=207:GOTO250
  49. 235 IFT1=169THENT1=193:GOTO250
  50. 240 IFT1=170THENT1=170:GOTO250
  51. 245 IFT1=167THENT1=83:T=T1
  52. 250 PRINT#3,Z$(T1);
  53. 255 PRINT#3,Z$(T);
  54. 260 IFSTHEN270
  55. 265 P=P+1:IFP<AZTHEN190
  56. 270 PRINT#3,CHR$(0)
  57. 275 CLOSE3
  58. 280 X$=M$+STR$(SZ+1):GOSUB365
  59. 285 E$=C$:F$=D$
  60. 290 X$="DUMMY":GOSUB365
  61. 295 OPEN5,8,5,"#":GOSUB635
  62. 300 PRINT#1,"U1";5;0;ASC(C$);ASC(D$)
  63. 305 PRINT#1,"B-P";5;SZ*2+2
  64. 310 PRINT#5,E$;F$;
  65. 315 PRINT#1,"U2";5;0;ASC(C$);ASC(D$)
  66. 320 CLOSE5
  67. 325 SZ=SZ+1
  68. 330 GOSUB610
  69. 335 PRINT "ANZAHL SEITEN: ";SZ
  70. 340 IFSZ=63ANDS=0THENPRINT:PRINT" TEXT ZU LANG !":GOTO350
  71. 345 IFS=0THEN145
  72. 350 PRINT#1,"S:";M$;"*"
  73. 355 CLOSE2:RETURN
  74. 360 :
  75. 365 REM
  76. 370 OPEN4,8,4,"#":GOSUB635
  77. 375 A$=CHR$(18):B$=CHR$(1)
  78. 380 A=ASC(A$):B=ASC(B$)
  79. 385 PRINT#1,"U1";4;0;A;B
  80. 390 GET#4,A$,B$
  81. 395 FORI=0TO7
  82. 400 K=0
  83. 405 PRINT#1,"B-P";4;I*32+3
  84. 410 GET#4,C$,D$
  85. 415 IFD$=""THEND$=CHR$(0)
  86. 420 FORJ=1TOLEN(X$)
  87. 425 GET#4,W$
  88. 430 IFW$=MID$(X$,J,1)THENK=K+1
  89. 435 NEXTJ
  90. 440 IFK=LEN(X$)THEN450
  91. 445 NEXTI:GOSUB635:GOTO380
  92. 450 CLOSE4
  93. 455 RETURN
  94. 460 :
  95. 465 REM
  96. 470 INPUT" QUELLCODE-NUMMER      ";Q
  97. 475 IFQ<0ORQ>255THEN470
  98. 480 PRINT:PRINT" ZUGEORDNETER GEOS-CODE:";ASC(Z$(Q))
  99. 485 NC=ASC(Z$(Q))
  100. 490 PRINT:PRINT" NEUES GEOS-CODE:":PRINT
  101. 495 INPUT" (RETURN=UEBERNEHMEN, 0=ENDE)";NC
  102. 500 IFNC<1ORNC>255THEN510
  103. 505 Z$(Q)=CHR$(NC):GOSUB610:GOTO465
  104. 510 RETURN
  105. 515 :
  106. 520 REM
  107. 525 INPUT"NAME DERTABELLE";NT$
  108. 530 OPEN2,8,2,NT$+",S,R":GOSUB635
  109. 535 FORI=0TO255
  110. 540 GET#2,Z$(I)
  111. 545 NEXTI
  112. 550 CLOSE2
  113. 555 RETURN
  114. 560 :
  115. 565 REM
  116. 570 INPUT"NAMEN FUER DIE NEUE TABELLE";NT$
  117. 575 OPEN2,8,2,NT$+",S,W":GOSUB635
  118. 580 FORI=0TO255
  119. 585 PRINT#2,Z$(I);
  120. 590 NEXTI
  121. 595 CLOSE2
  122. 600 RETURN
  123. 605 :
  124. 610 PRINTCHR$(147)
  125. 615 PRINTTAB(9);"*** TEXT-KONVERTER ***"
  126. 620 PRINT:PRINT
  127. 625 RETURN
  128. 630 :
  129. 635 INPUT#1,F,FT$,FT,FS
  130. 640 IFF<>0THENPRINT:PRINT" ";FT$:STOP
  131. 645 RETURN
  132. 650 :
  133. 655 RESTORE
  134. 660 FORI=0TO255
  135. 665 READZ:Z$(I)=CHR$(Z)
  136. 670 NEXTI
  137. 675 READZ:IFZ=-1THEN685
  138. 680 PRINT:PRINT "FEHLER IN DATAS":STOP
  139. 685 FORJ=OTO23
  140. 690 READK(J)
  141. 695 NEXTJ
  142. 700 RETURN
  143. 710 REM DEKODIERTABELLE
  144. 715 DATA32,32,32,32,32,32,32,32,32,32
  145. 720 DATA32,32,32,13,32,32,32,32,32,32
  146. 725 DATA32,32,32,32,32,32,32,32,32,32
  147. 730 DATA32,32,32,33,34,35,36,37,38,39
  148. 735 DATA40,41,42,43,44,45,46,47,48,49
  149. 740 DATA50,51,52,53,54,55,56,57,58,59
  150. 745 DATA60,61,62,63,64,97,98,99,100,101
  151. 750 DATA102,103,104,105,106,107,108,109,110,111
  152. 755 DATA112,113,114,115,116,117,118,119,120,121
  153. 760 DATA122,91,92,93,94,13,96,65,66,67
  154. 765 DATA68,69,70,71,72,73,74,75,76,77
  155. 770 DATA78,79,80,81,82,83,84,85,86,87
  156. 775 DATA88,89,90,123,124,125,126,127,32,32
  157. 780 DATA32,32,32,32,32,32,32,32,32,32
  158. 785 DATA32,32,32,32,32,32,32,32,32,32
  159. 790 DATA32,32,32,32,32,32,32,32,32,32
  160. 795 DATA32,32,32,32,32,32,32,32,32,32
  161. 800 DATA32,32,32,32,32,32,32,32,32,32
  162. 805 DATA32,32,32,32,32, 32, 32,123,124,125
  163. 810 DATA126,32,32,65,66,67,68,69,70,71
  164. 815 DATA72,73,74,75,76,77,78,79,80,81
  165. 820 DATA82,83,84,85,86,87,88,89,90,123
  166. 825 DATA124,125,126,127,32,32,32,32,32,32
  167. 830 DATA32,32,32,32,32,32,32,32,32,32
  168. 835 DATA32,32,32,32,32,32,32,32,32,32
  169. 840 DATA32,91,92,93,126,32,-1
  170. 845 :
  171. 850 REM
  172. 855 DATA24,0,48,1,64,0,144,0,224,0
  173. 860 DATA48,1,48,1,48,1,48,1,48,1
  174. 865 DATA23,9,0,0
  175. 1000 LOAD"RBOOT",8,1
  176. 1010 LOAD"RBOOT",9,1
  177. 1100 BOOT"128 RBOOT",U8
  178. 1110 BOOT"128 RBOOT",U9
  179.